home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #5
/
Commodore_Disk_User_Vol.3_5_1990_-.d64
/
joystick tester
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
81 lines
0 poke774,248:poke775,252:poke808,234:gosub650
1 poke53280,0:poke53281,0:printchr$(147)
2 joy=56320:a=2:j$="neutral":vl$="00":b$="off"
5 print" joystick tester by michael smith @1989 [146]"
12 print" [209] ":print
13 print" [209] [209] ":print:print
15 print"[209] [209] [209] ":print
16 print" "
17 print" [209] [209] ":print
18 print" [209] "
20 print"joystick port :";a"[146]"
21 print"joystick direction:";j$"[146]"
22 print"value:";vl$"[146]"
23 print"joystick button :";b$;"[146]"
24 print"h - help[146]"
25 print" press space to change port [146]"
50 fork=0to10
51 gosub100
55 geta$:ifa$=""then56
56 ifa$=" "thengoto150
57 ifa$="h"then550:end
67 ifjv=0then98
68 ifjv=1thenj$="up ":vl$="01":goto507
69 ifjv=2thenj$="down ":vl$="02":goto506
70 ifjv=4thenj$="left ":vl$="04":goto505
71 ifjv=5thenj$="up/left ":vl$="05":goto504
72 ifjv=6thenj$="down/left ":vl$="06":goto503
73 ifjv=8thenj$="right ":vl$="08":goto502
74 ifjv=9thenj$="up/right ":vl$="09":goto501
95 ifjv=10thenj$="down/right ":vl$="10":goto500
98 iffr=16thenb$="off":j$="neutral ":vl$="00":goto510
99 b$="on ":goto23
100 jv=peek(joy)
110 fr=jvand16
120 jv=15-(jvand15)
130 return
140 end
150 ifa=2thenjoy=56321:a=1:goto12
155 ifa=1thenjoy=56320:a=2:goto12
160 end
500 print"[153] [209][150] [209] ":goto12
501 print" [209][150] [209] ":goto12
502 print"[209] [209][150] [209] ":goto12
503 print"[150] [209] [209] ":goto12
504 print"[150] [209] [209] ":goto12
505 print"[150][209] [209] [209] ":goto12
506 print"[150] [209] ":goto12
507 print"[150] [209] ":goto12
510 print"[209] [150] [209] [209] ":goto12
520 end
550 rem *** instructions ***
551 print"[147]"
555 printchr$(147)
556 print" joystick tester by michael smith @1989 [146]"
560 print"instructions:"
561 print:print"joystick tester allows you to test your"
562 print"joystick(s) to see if they function"
563 print"correctly."
565 print"joystick port [146] - the port the program"
566 print"is testing the joystick"
567 print"joy. direction[146] - the direction you are"
568 print"pushing the joystick"
569 print"value [146] - the computers value"
570 print"of the direction"
575 print"joy. button [146] - shows if the fire"
576 print"button has been pressed"
577 print"red lights [146] - shows the current"
578 print"direction of the stick"
580 print" press space to exit [146]"
600 geta$:ifa$<>" "then600
601 printchr$(147):goto5:end
650 rem **** title ****
651 poke53272,28
655 printchr$(147):poke53280,0:poke53281,0
660 print"< joystick tester <"
665 print"written by michael smith"
670 print"press any key to start"
680 geta$:ifa$=""then680
690 return
700 end